/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_07 / progging / areas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 16 20 f4 20 3e | 20 41 44 46 53 3a 3a 30 |.... . >| ADFS::0|
|00000010| 2e 41 52 45 41 53 0d 00 | 14 48 20 f4 20 50 72 6f |.AREAS..|.H . Pro|
|00000020| 67 72 61 6d 20 63 61 6c | 63 75 6c 61 74 65 73 20 |gram cal|culates |
|00000030| 74 68 65 20 61 72 65 61 | 20 6f 66 20 72 65 63 61 |the area| of reca|
|00000040| 74 61 6e 67 6c 65 73 2c | 20 63 69 72 63 6c 65 73 |tangles,| circles|
|00000050| 20 61 6e 64 20 74 72 69 | 61 6e 67 6c 65 73 0d 00 | and tri|angles..|
|00000060| 16 34 20 f4 20 49 74 20 | 75 73 65 73 20 78 2c 20 |.4 . It |uses x, |
|00000070| 79 2c 20 7a 20 61 6e 64 | 20 61 72 65 61 20 61 73 |y, z and| area as|
|00000080| 20 67 6c 6f 62 61 6c 20 | 76 61 72 69 61 62 6c 65 | global |variable|
|00000090| 73 2e 0d 00 19 0f 20 40 | 25 3d 22 46 31 30 2e 32 |s..... @|%="F10.2|
|000000a0| 22 0d 00 1e 3c 20 20 20 | f1 22 47 69 76 65 20 74 |"...<   |."Give t|
|000000b0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 73 |he name |of the s|
|000000c0| 68 61 70 65 2c 20 52 28 | 65 63 74 61 6e 67 6c 65 |hape, R(|ectangle|
|000000d0| 29 2c 20 43 28 69 72 63 | 6c 65 29 2c 22 0d 00 28 |), C(irc|le),"..(|
|000000e0| 34 20 20 20 e8 22 20 54 | 28 72 69 61 6e 67 6c 65 |4   ." T|(riangle|
|000000f0| 29 20 6f 72 20 2a 20 74 | 6f 20 65 6e 64 20 74 68 |) or * t|o end th|
|00000100| 65 20 70 72 6f 67 72 61 | 6d 22 2c 73 68 61 70 65 |e progra|m",shape|
|00000110| 24 0d 00 2d 15 20 20 20 | c8 95 20 73 68 61 70 65 |$..-.   |.. shape|
|00000120| 24 3c 3e 22 2a 22 0d 00 | 32 33 20 20 20 20 20 c8 |$<>"*"..|23     .|
|00000130| 95 20 73 68 61 70 65 24 | 3c 3e 22 52 22 20 80 20 |. shape$|<>"R" . |
|00000140| 73 68 61 70 65 24 3c 3e | 22 43 22 20 80 20 73 68 |shape$<>|"C" . sh|
|00000150| 61 70 65 24 3c 3e 22 54 | 22 0d 00 3c 32 20 20 20 |ape$<>"T|"..<2   |
|00000160| 20 20 20 20 20 f1 22 50 | 6c 65 61 73 65 20 74 72 |     ."P|lease tr|
|00000170| 79 20 61 67 61 69 6e 20 | 75 73 69 6e 67 20 6f 6e |y again |using on|
|00000180| 6c 79 20 52 2c 20 43 2c | 20 54 22 0d 00 46 14 20 |ly R, C,| T"..F. |
|00000190| 20 20 20 20 20 20 20 e8 | 20 73 68 61 70 65 24 0d |       .| shape$.|
|000001a0| 00 50 0a 20 20 20 20 20 | ce 0d 00 64 14 20 20 20 |.P.     |...d.   |
|000001b0| 20 20 c8 8e 20 73 68 61 | 70 65 24 20 ca 0d 00 6e |  .. sha|pe$ ...n|
|000001c0| 27 20 20 20 20 20 20 20 | 20 c9 20 22 52 22 20 3a |'       | . "R" :|
|000001d0| 20 61 72 65 61 3d a4 52 | 65 63 74 61 6e 67 6c 65 | area=.R|ectangle|
|000001e0| 41 72 65 61 0d 00 78 24 | 20 20 20 20 20 20 20 20 |Area..x$|        |
|000001f0| c9 20 22 43 22 20 3a 20 | 61 72 65 61 3d a4 43 69 |. "C" : |area=.Ci|
|00000200| 72 63 6c 65 41 72 65 61 | 0d 00 82 26 20 20 20 20 |rcleArea|...&    |
|00000210| 20 20 20 20 c9 20 22 54 | 22 20 3a 20 61 72 65 61 |    . "T|" : area|
|00000220| 3d a4 54 72 69 61 6e 67 | 6c 65 41 72 65 61 0d 00 |=.Triang|leArea..|
|00000230| 8c 0a 20 20 20 20 20 cb | 0d 00 aa 11 20 20 20 20 |..     .|....    |
|00000240| 20 f2 44 69 73 70 6c 61 | 79 0d 00 ad 26 20 20 20 | .Displa|y...&   |
|00000250| 20 20 e8 22 45 6e 74 65 | 72 20 61 6e 6f 74 68 65 |  ."Ente|r anothe|
|00000260| 72 20 73 68 61 70 65 22 | 2c 73 68 61 70 65 24 0d |r shape"|,shape$.|
|00000270| 00 af 07 20 20 ce 0d 00 | b4 06 20 e0 0d 00 be 05 |...  ...|.. .....|
|00000280| 20 0d 01 2c 15 20 dd 20 | a4 52 65 63 74 61 6e 67 | ..,. . |.Rectang|
|00000290| 6c 65 41 72 65 61 0d 01 | 36 0c 20 20 ea 20 61 72 |leArea..|6.  . ar|
|000002a0| 65 61 0d 01 40 29 20 20 | e8 22 47 69 76 65 20 74 |ea..@)  |."Give t|
|000002b0| 68 65 20 6c 65 6e 67 74 | 68 20 6f 66 20 74 68 65 |he lengt|h of the|
|000002c0| 20 73 69 64 65 73 22 2c | 78 2c 79 0d 01 4a 0e 20 | sides",|x,y..J. |
|000002d0| 20 61 72 65 61 3d 78 2a | 79 0d 01 54 0b 20 20 3d | area=x*|y..T.  =|
|000002e0| 61 72 65 61 0d 01 5e 05 | 20 0d 01 68 12 20 dd 20 |area..^.| ..h. . |
|000002f0| a4 43 69 72 63 6c 65 41 | 72 65 61 0d 01 72 0c 20 |.CircleA|rea..r. |
|00000300| 20 ea 20 61 72 65 61 0d | 01 7c 2b 20 20 e8 20 22 | . area.|.|+  . "|
|00000310| 47 69 76 65 20 74 68 65 | 20 64 69 61 6d 65 74 65 |Give the| diamete|
|00000320| 72 20 6f 66 20 74 68 65 | 20 63 69 72 63 6c 65 22 |r of the| circle"|
|00000330| 2c 78 0d 01 86 12 20 20 | 61 72 65 61 3d af 2a 78 |,x....  |area=.*x|
|00000340| 2a 78 2f 34 0d 01 90 0b | 20 20 3d 61 72 65 61 0d |*x/4....|  =area.|
|00000350| 01 9a 05 20 0d 01 a4 14 | 20 dd 20 a4 54 72 69 61 |... ....| . .Tria|
|00000360| 6e 67 6c 65 41 72 65 61 | 0d 01 ae 0e 20 20 ea 20 |ngleArea|....  . |
|00000370| 61 72 65 61 2c 73 0d 01 | b8 32 20 20 e8 22 47 69 |area,s..|.2  ."Gi|
|00000380| 76 65 20 74 68 65 20 6c | 65 6e 67 74 68 73 20 6f |ve the l|engths o|
|00000390| 66 20 74 68 65 20 74 68 | 72 65 65 20 73 69 64 65 |f the th|ree side|
|000003a0| 73 22 2c 78 2c 79 2c 7a | 0d 01 c2 11 20 20 73 3d |s",x,y,z|....  s=|
|000003b0| 28 78 2b 79 2b 7a 29 2f | 32 0d 01 cc 21 20 20 61 |(x+y+z)/|2...!  a|
|000003c0| 72 65 61 3d b6 28 73 2a | 28 73 2d 78 29 2a 28 73 |rea=.(s*|(s-x)*(s|
|000003d0| 2d 79 29 2a 28 73 2d 7a | 29 29 0d 01 d6 0b 20 20 |-y)*(s-z|))....  |
|000003e0| 3d 61 72 65 61 0d 01 e0 | 05 20 0d 01 f4 10 20 20 |=area...|. ....  |
|000003f0| dd 20 f2 44 69 73 70 6c | 61 79 0d 01 fe 16 20 20 |. .Displ|ay....  |
|00000400| 20 20 e7 20 73 68 61 70 | 65 24 3d 22 52 22 20 8c |  . shap|e$="R" .|
|00000410| 0d 02 08 4c 20 20 20 20 | 20 20 20 f1 22 41 72 65 |...L    |   ."Are|
|00000420| 61 20 6f 66 20 72 65 63 | 74 61 6e 67 6c 65 2c 20 |a of rec|tangle, |
|00000430| 73 69 64 65 73 20 22 3b | 78 3b 22 6d 2c 20 22 3b |sides ";|x;"m, ";|
|00000440| 79 3b 22 6d 2c 20 69 73 | 20 22 3b 61 72 65 61 3b |y;"m, is| ";area;|
|00000450| 22 20 73 71 20 6d 65 74 | 65 72 73 22 0d 02 12 18 |" sq met|ers"....|
|00000460| 20 20 20 20 cc 20 e7 20 | 73 68 61 70 65 24 3d 22 |    . . |shape$="|
|00000470| 43 22 20 8c 0d 02 1c 49 | 20 20 20 20 20 20 20 20 |C" ....I|        |
|00000480| 20 20 20 f1 22 41 72 65 | 61 20 6f 66 20 63 69 72 |   ."Are|a of cir|
|00000490| 63 6c 65 20 6f 66 20 64 | 69 61 6d 65 74 65 72 20 |cle of d|iameter |
|000004a0| 22 3b 78 3b 22 6d 20 69 | 73 20 22 3b 61 72 65 61 |";x;"m i|s ";area|
|000004b0| 3b 22 20 73 71 20 6d 65 | 74 65 72 73 22 0d 02 26 |;" sq me|ters"..&|
|000004c0| 0e 20 20 20 20 20 20 20 | 20 20 cc 0d 02 2b 5a 20 |.       |  ...+Z |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 f1 22 41 72 |        |    ."Ar|
|000004e0| 65 61 20 6f 66 20 74 72 | 69 61 6e 67 6c 65 20 6f |ea of tr|iangle o|
|000004f0| 66 20 73 69 64 65 73 20 | 22 3b 78 3b 22 6d 2c 20 |f sides |";x;"m, |
|00000500| 22 3b 79 3b 22 6d 2c 20 | 22 3b 7a 3b 22 6d 20 69 |";y;"m, |";z;"m i|
|00000510| 73 20 22 3b 61 72 65 61 | 3b 22 20 73 71 20 6d 65 |s ";area|;" sq me|
|00000520| 74 65 72 73 22 0d 02 30 | 0e 20 20 20 20 20 20 20 |ters"..0|.       |
|00000530| 20 20 cd 0d 02 35 09 20 | 20 20 20 cd 0d 02 3a 06 |  ...5. |   ...:.|
|00000540| 20 e1 0d ff             |                         | ...    |        |
+--------+-------------------------+-------------------------+--------+--------+